home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / lightwave / utilities / par251 / rexx / slideshow.ddr < prev   
Text File  |  1995-02-10  |  544b  |  24 lines
  1. /*        Slide Function                            */
  2. /* It will loop through all stills/anims on a drive,    */
  3. /* showing stills and playing anims.            */
  4. /* For anims it acts like PLAY and WAIT together.    */
  5. /*                            */
  6. /* To abort, just hit the PAR "Quit" button once.    */
  7.  
  8. Options results
  9.  
  10. if (~show('L','rexxsupport.library')) then
  11.     if ~addlib('rexxsupport.library',0,-30,0) then do
  12.         req 'rexxsupport.library fialed to open.'
  13.         exit
  14.     end
  15.  
  16. Req 'Enter delay time in 1/50 secs.;50'
  17. time=result
  18. if time='' then exit
  19.  
  20. do forever
  21.     Slide
  22.     call delay time
  23. end
  24.